From fda9ecc150934ed438673c963e2c002674acfb60 Mon Sep 17 00:00:00 2001
From: Eshel Yaron <me@eshelyaron.com>
Date: Wed, 1 May 2024 18:59:45 +0200
Subject: [PATCH] ; Exclude a few more modes in
 'global-completion-preview-mode'

* lisp/completion-preview.el (global-completion-preview-mode):
Exclude a few non-edit major modes whose definition sets
'major-mode' directly, rather than using 'define-derived-mode'.
---
 lisp/completion-preview.el | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/lisp/completion-preview.el b/lisp/completion-preview.el
index e2012b0f80a..1f9ba2c3d7a 100644
--- a/lisp/completion-preview.el
+++ b/lisp/completion-preview.el
@@ -570,11 +570,15 @@ backward."
 ;;;###autoload
 (define-globalized-minor-mode global-completion-preview-mode
   completion-preview-mode completion-preview-mode
-  :predicate '((not compilation-mode
+  :predicate '((not archive-mode
+                    calc-mode
+                    compilation-mode
                     diff-mode
                     dired-mode
+                    image-mode
                     minibuffer-mode
                     minibuffer-inactive-mode
+                    org-agenda-mode
                     special-mode
                     wdired-mode)
                t))
-- 
2.30.2